#!/usr/bin/python
#
# Urwid curses output wrapper.. the horror..
#    Copyright (C) 2004-2007  Ian Ward
#
#    This library is free software; you can redistribute it and/or
#    modify it under the terms of the GNU Lesser General Public
#    License as published by the Free Software Foundation; either
#    version 2.1 of the License, or (at your option) any later version.
#
#    This library is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
#    Lesser General Public License for more details.
#
#    You should have received a copy of the GNU Lesser General Public
#    License along with this library; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# Urwid web site: http://excess.org/urwid/

"""
Curses-based UI implementation
"""

from __future__ import nested_scopes

import curses
import _curses
import sys

import util
import escape

KEY_RESIZE = 410 # curses.KEY_RESIZE (sometimes not defined)
KEY_MOUSE = 409 # curses.KEY_MOUSE

_curses_colours = {
	'default':		(-1,			0),
	'black':		(curses.COLOR_BLACK,	0),
	'dark red':		(curses.COLOR_RED,	0),
	'dark green':		(curses.COLOR_GREEN,	0),
	'brown':		(curses.COLOR_YELLOW,	0),
	'dark blue':		(curses.COLOR_BLUE,	0),
	'dark magenta':		(curses.COLOR_MAGENTA,	0),
	'dark cyan':		(curses.COLOR_CYAN,	0),
	'light gray':		(curses.COLOR_WHITE,	0),
	'dark gray':		(curses.COLOR_BLACK,    1),
	'light red':		(curses.COLOR_RED,      1),
	'light green':		(curses.COLOR_GREEN,    1),
	'yellow':		(curses.COLOR_YELLOW,   1),
	'light blue':		(curses.COLOR_BLUE,     1),
	'light magenta':	(curses.COLOR_MAGENTA,  1),
	'light cyan':		(curses.COLOR_CYAN,     1),
	'white':		(curses.COLOR_WHITE,	1),
}


# replace control characters with ?'s
_trans_table = "?"*32+"".join([chr(x) for x in range(32,256)])


class Screen(object):
	def __init__(self):
		self.curses_pairs = [
			(None,None), # Can't be sure what pair 0 will default to
		]
		self.palette = {}
		self.has_color = False
		self.s = None
		self.cursor_state = None
		self._keyqueue = []
		self.prev_input_resize = 0
		self.set_input_timeouts()
		self.last_bstate = 0
		self._started = False

	def register_palette( self, l ):
		"""Register a list of palette entries.

		l -- list of (name, foreground, background, mono),
		     (name, foreground, background) or
		     (name, same_as_other_name) palette entries.

		calls self.register_palette_entry for each item in l
		"""
		
		for item in l:
			if len(item) in (3,4):
				self.register_palette_entry( *item )
				continue
			assert len(item) == 2, "Invalid register_palette usage"
			name, like_name = item
			if not self.palette.has_key(like_name):
				raise Exception("palette entry '%s' doesn't exist"%like_name)
			self.palette[name] = self.palette[like_name]

	def register_palette_entry( self, name, foreground, background,
		mono=None):
		"""Register a single palette entry.

		name -- new entry/attribute name
		foreground -- foreground colour, one of: 'black', 'dark red',
			'dark green', 'brown', 'dark blue', 'dark magenta',
			'dark cyan', 'light gray', 'dark gray', 'light red',
			'light green', 'yellow', 'light blue', 'light magenta',
			'light cyan', 'white', 'default' (black if unable to
			use terminal's default)
		background -- background colour, one of: 'black', 'dark red',
			'dark green', 'brown', 'dark blue', 'dark magenta',
			'dark cyan', 'light gray', 'default' (light gray if
			unable to use terminal's default)
		mono -- monochrome terminal attribute, one of: None (default),
			'bold',	'underline', 'standout', or a tuple containing
			a combination eg. ('bold','underline')
			
		"""
		assert not self._started

		fg_a, fg_b = _curses_colours[foreground]
		bg_a, bg_b = _curses_colours[background]
		if bg_b: # can't do bold backgrounds
			raise Exception("%s is not a supported background colour"%background )
		assert (mono is None or 
			mono in (None, 'bold', 'underline', 'standout') or
			type(mono)==type(()))
	
		for i in range(len(self.curses_pairs)):
			pair = self.curses_pairs[i]
			if pair == (fg_a, bg_a): break
		else:
			i = len(self.curses_pairs)
			self.curses_pairs.append( (fg_a, bg_a) )
		
		self.palette[name] = (i, fg_b, mono)
		
	
	def set_mouse_tracking(self):
		"""
		Enable mouse tracking.  
		
		After calling this function get_input will include mouse
		click events along with keystrokes.
		"""
		rval = curses.mousemask( 0 
			| curses.BUTTON1_PRESSED | curses.BUTTON1_RELEASED
			| curses.BUTTON2_PRESSED | curses.BUTTON2_RELEASED
			| curses.BUTTON3_PRESSED | curses.BUTTON3_RELEASED
			| curses.BUTTON4_PRESSED | curses.BUTTON4_RELEASED
			| curses.BUTTON_SHIFT | curses.BUTTON_ALT
			| curses.BUTTON_CTRL )

	def start(self):
		"""
		Initialize the screen and input mode.
		"""
		assert self._started == False

		self.s = curses.initscr()
		self._started = True
		self.has_color = curses.has_colors()
		if self.has_color:
			curses.start_color()
			if curses.COLORS < 8:
				# not colourful enough
				self.has_color = False
		if self.has_color:
			try:
				curses.use_default_colors()
				self.has_default_colors=True
			except _curses.error:
				self.has_default_colors=False
		self._setup_colour_pairs()
		curses.noecho()
		curses.meta(1)
		curses.halfdelay(10) # use set_input_timeouts to adjust
		self.s.keypad(0)
		
	
	def stop(self):
		"""
		Restore the screen.
		"""
		if self._started == False:
			return
		curses.echo()
		self._curs_set(1)
		try:
			curses.endwin()
		except _curses.error:
			pass # don't block original error with curses error
	
	def run_wrapper(self,fn):
		"""Call fn in fullscreen mode.  Return to normal on exit.
		
		This function should be called to wrap your main program loop.
		Exception tracebacks will be displayed in normal mode.
		"""
	
		try:
			self.start()
			return fn()
		finally:
			self.stop()

	def _setup_colour_pairs(self):
	
		k = 1
		if self.has_color:
			if len(self.curses_pairs) > curses.COLOR_PAIRS:
				raise Exception("Too many colour pairs!  Use fewer combinations.")
		
			for fg,bg in self.curses_pairs[1:]:
				if not self.has_default_colors and fg == -1:
					fg = _curses_colours["black"][0]
				if not self.has_default_colors and bg == -1:
					bg = _curses_colours["light gray"][0]
				curses.init_pair(k,fg,bg)
				k+=1
		else:
			wh, bl = curses.COLOR_WHITE, curses.COLOR_BLACK
		
		self.attrconv = {}
		for name, (cp, a, mono) in self.palette.items():
			if self.has_color:
				self.attrconv[name] = curses.color_pair(cp)
				if a: self.attrconv[name] |= curses.A_BOLD
			elif type(mono)==type(()):
				attr = 0
				for m in mono:
					attr |= self._curses_attr(m)
				self.attrconv[name] = attr
			else:
				attr = self._curses_attr(mono)
				self.attrconv[name] = attr
	
	def _curses_attr(self, a):
		if a == 'bold':
			return curses.A_BOLD
		elif a == 'standout':
			return curses.A_STANDOUT
		elif a == 'underline':
			return curses.A_UNDERLINE
		else:
			return 0
				
				


	def _curs_set(self,x):
		if self.cursor_state== "fixed" or x == self.cursor_state: 
			return
		try:
			curses.curs_set(x)
			self.cursor_state = x
		except _curses.error:
			self.cursor_state = "fixed"

	
	def _clear(self):
		self.s.clear()
		self.s.refresh()
	
	
	def _getch(self, wait_tenths):
		if wait_tenths==0:
			return self._getch_nodelay()
		curses.halfdelay(wait_tenths)
		self.s.nodelay(0)
		return self.s.getch()
	
	def _getch_nodelay(self):
		self.s.nodelay(1)
		while 1:
			# this call fails sometimes, but seems to work when I try again
			try:
				curses.cbreak()
				break
			except _curses.error:
				pass
			
		return self.s.getch()

	def set_input_timeouts(self, max_wait=0.5, complete_wait=0.1, 
		resize_wait=0.1):
		"""
		Set the get_input timeout values.  All values have a granularity
		of 0.1s, ie. any value between 0.15 and 0.05 will be treated as
		0.1 and any value less than 0.05 will be treated as 0. 
	
		max_wait -- amount of time in seconds to wait for input when
			there is no input pending
		complete_wait -- amount of time in seconds to wait when
			get_input detects an incomplete escape sequence at the
			end of the available input
		resize_wait -- amount of time in seconds to wait for more input
			after receiving two screen resize requests in a row to
			stop urwid from consuming 100% cpu during a gradual
			window resize operation
		"""

		def convert_to_tenths( s ):
			return int( (s+0.05)*10 )

		self.max_tenths = convert_to_tenths(max_wait)
		self.complete_tenths = convert_to_tenths(complete_wait)
		self.resize_tenths = convert_to_tenths(resize_wait)
	
	def get_input(self, raw_keys=False):
		"""Return pending input as a list.

		raw_keys -- return raw keycodes as well as translated versions

		This function will immediately return all the input since the
		last time it was called.  If there is no input pending it will
		wait before returning an empty list.  The wait time may be
		configured with the set_input_timeouts function.

		If raw_keys is False (default) this function will return a list
		of keys pressed.  If raw_keys is True this function will return
		a ( keys pressed, raw keycodes ) tuple instead.
		
		Examples of keys returned
		-------------------------
		ASCII printable characters:  " ", "a", "0", "A", "-", "/" 
		ASCII control characters:  "tab", "enter"
		Escape sequences:  "up", "page up", "home", "insert", "f1"
		Key combinations:  "shift f1", "meta a", "ctrl b"
		Window events:  "window resize"
		
		When a narrow encoding is not enabled
		"Extended ASCII" characters:  "\\xa1", "\\xb2", "\\xfe"

		When a wide encoding is enabled
		Double-byte characters:  "\\xa1\\xea", "\\xb2\\xd4"

		When utf8 encoding is enabled
		Unicode characters: u"\\u00a5", u'\\u253c"

		Examples of mouse events returned
		---------------------------------
		Mouse button press: ('mouse press', 1, 15, 13), 
		                    ('meta mouse press', 2, 17, 23)
		Mouse button release: ('mouse release', 0, 18, 13),
		                      ('ctrl mouse release', 0, 17, 23)
		"""
		assert self._started
		
		keys, raw = self._get_input( self.max_tenths )
		
		# Avoid pegging CPU at 100% when slowly resizing, and work
		# around a bug with some braindead curses implementations that 
		# return "no key" between "window resize" commands 
		if keys==['window resize'] and self.prev_input_resize:
			while True:
				keys, raw2 = self._get_input(self.resize_tenths)
				raw += raw2
				if not keys:
					keys, raw2 = self._get_input( 
						self.resize_tenths)
					raw += raw2
				if keys!=['window resize']:
					break
			if keys[-1:]!=['window resize']:
				keys.append('window resize')

				
		if keys==['window resize']:
			self.prev_input_resize = 2
		elif self.prev_input_resize == 2 and not keys:
			self.prev_input_resize = 1
		else:
			self.prev_input_resize = 0
		
		if raw_keys:
			return keys, raw
		return keys
		
		
	def _get_input(self, wait_tenths):
		# this works around a strange curses bug with window resizing 
		# not being reported correctly with repeated calls to this
		# function without a doupdate call in between
		curses.doupdate() 
		
		key = self._getch(wait_tenths)
		resize = False
		raw = []
		keys = []
		
		while key >= 0:
			raw.append(key)
			if key==KEY_RESIZE: 
				resize = True
			elif key==KEY_MOUSE:
				keys += self._encode_mouse_event()
			else:
				keys.append(key)
			key = self._getch_nodelay()

		processed = []
		
		try:
			while keys:
				run, keys = escape.process_keyqueue(keys, True)
				processed += run
		except escape.MoreInputRequired:
			key = self._getch(self.complete_tenths)
			while key >= 0:
				raw.append(key)
				if key==KEY_RESIZE: 
					resize = True
				elif key==KEY_MOUSE:
					keys += self._encode_mouse_event()
				else:
					keys.append(key)
				key = self._getch_nodelay()
			while keys:
				run, keys = escape.process_keyqueue(keys, False)
				processed += run

		if resize:
			processed.append('window resize')

		return processed, raw
		
		
	def _encode_mouse_event(self):
		# convert to escape sequence
		last = next = self.last_bstate
		(id,x,y,z,bstate) = curses.getmouse()
		
		mod = 0
		if bstate & curses.BUTTON_SHIFT:	mod |= 4
		if bstate & curses.BUTTON_ALT:		mod |= 8
		if bstate & curses.BUTTON_CTRL:		mod |= 16
		
		l = []
		def append_button( b ):
			b |= mod
			l.extend([ 27, ord('['), ord('M'), b+32, x+33, y+33 ])
		
		if bstate & curses.BUTTON1_PRESSED and last & 1 == 0:
			append_button( 0 )
			next |= 1
		if bstate & curses.BUTTON2_PRESSED and last & 2 == 0:
			append_button( 1 )
			next |= 2
		if bstate & curses.BUTTON3_PRESSED and last & 4 == 0:
			append_button( 2 )
			next |= 4
		if bstate & curses.BUTTON4_PRESSED and last & 8 == 0:
			append_button( 64 )
			next |= 8
		if bstate & curses.BUTTON1_RELEASED and last & 1:
			append_button( 0 + escape.MOUSE_RELEASE_FLAG )
			next &= ~ 1
		if bstate & curses.BUTTON2_RELEASED and last & 2:
			append_button( 1 + escape.MOUSE_RELEASE_FLAG )
			next &= ~ 2
		if bstate & curses.BUTTON3_RELEASED and last & 4:
			append_button( 2 + escape.MOUSE_RELEASE_FLAG )
			next &= ~ 4
		if bstate & curses.BUTTON4_RELEASED and last & 8:
			append_button( 64 + escape.MOUSE_RELEASE_FLAG )
			next &= ~ 8
		
		self.last_bstate = next
		return l
			

	def _dbg_instr(self): # messy input string (intended for debugging)
		curses.echo()
		self.s.nodelay(0)
		curses.halfdelay(100)
		str = self.s.getstr()
		curses.noecho()
		return str
		
	def _dbg_out(self,str): # messy output function (intended for debugging)
		self.s.clrtoeol()
		self.s.addstr(str)
		self.s.refresh()
		self._curs_set(1)
		
	def _dbg_query(self,question): # messy query (intended for debugging)
		self._dbg_out(question)
		return self._dbg_instr()
	
	def _dbg_refresh(self):
		self.s.refresh()



	def get_cols_rows(self):
		"""Return the terminal dimensions (num columns, num rows)."""
		rows,cols = self.s.getmaxyx()
		return cols,rows
		

	def _setattr(self, a):
		if a is None:
			self.s.attrset( 0 )
			return
		if not self.attrconv.has_key(a):
			raise Exception, "Attribute %s not registered!"%`a`
		self.s.attrset( self.attrconv[a] )
				
			
			
	def draw_screen(self, (cols, rows), r ):
		"""Paint screen with rendered canvas."""
		assert self._started
		
		assert r.rows() == rows, "canvas size and passed size don't match"
	
		y = -1
		for row in r.content():
			y += 1
			try:
				self.s.move( y, 0 )
			except _curses.error:
				# terminal shrunk? 
				# move failed so stop rendering.
				return
			
			first = True
			lasta = None
			nr = 0
			for a, cs, seg in row:
				seg = seg.translate( _trans_table )
				if first or lasta != a:
					self._setattr(a)
					lasta = a
				try:
					if cs == "0":
						for i in range(len(seg)):
							self.s.addch( 0x400000 +
								ord(seg[i]) )
					else:
						assert cs is None
						self.s.addstr( seg )
				except _curses.error:
					# it's ok to get out of the
					# screen on the lower right
					if (y == rows-1 and nr == len(row)-1):
						pass
					else:
						# perhaps screen size changed
						# quietly abort.
						return
				nr += 1
		if r.cursor is not None:
			x,y = r.cursor
			self._curs_set(1)
			try:
				self.s.move(y,x)
			except _curses.error:
				pass
		else:
			self._curs_set(0)
			self.s.move(0,0)
		
		self.s.refresh()
		self.keep_cache_alive_link = r


	def clear(self):
		"""
		Force the screen to be completely repainted on the next
		call to draw_screen().
		"""
		self.s.clear()




class _test:
	def __init__(self):
		self.ui = Screen()
		self.l = _curses_colours.keys()
		self.l.sort()
		for c in self.l:
			self.ui.register_palette( [
				(c+" on black", c, 'black', 'underline'),
				(c+" on dark blue",c, 'dark blue', 'bold'),
				(c+" on light gray",c,'light gray', 'standout'),
				])
		self.ui.run_wrapper(self.run)
		
	def run(self):
		class FakeRender: pass
		r = FakeRender()
		text = ["  has_color = "+`self.ui.has_color`,""]
		attr = [[],[]]
		r.coords = {}
		r.cursor = None
		
		for c in self.l:
			t = ""
			a = []
			for p in c+" on black",c+" on dark blue",c+" on light gray":
				
				a.append((p,27))
				t=t+ (p+27*" ")[:27]
			text.append( t )
			attr.append( a )

		text += ["","return values from get_input(): (q exits)", ""]
		attr += [[],[],[]]
		cols,rows = self.ui.get_cols_rows()
		keys = None
		while keys!=['q']:
			r.text=([t.ljust(cols) for t in text]+[""]*rows)[:rows]
			r.attr=(attr+[[]]*rows) [:rows]
			self.ui.draw_screen((cols,rows),r)
			keys, raw = self.ui.get_input( raw_keys = True )
			if 'window resize' in keys:
				cols, rows = self.ui.get_cols_rows()
			if not keys:
				continue
			t = ""
			a = []
			for k in keys:
				if type(k) == type(u""): k = k.encode("utf-8")
				t += "'"+k + "' "
				a += [(None,1), ('yellow on dark blue',len(k)),
					(None,2)]
			
			text.append(t + ": "+ `raw`)
			attr.append(a)
			text = text[-rows:]
			attr = attr[-rows:]
				
				


if '__main__'==__name__:
	_test()
